object frmEdDocumento: TfrmEdDocumento
  Left = 561
  Top = 311
  BorderStyle = bsDialog
  Caption = 'Edi'#231#227'o de Compra'
  ClientHeight = 493
  ClientWidth = 719
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object cxGroupBox2: TcxGroupBox
    Left = 9
    Top = 63
    Width = 93
    Height = 42
    Caption = ' Sequencial '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 6
    object lblNumero: TcxDBLabel
      Left = 4
      Top = 17
      Width = 84
      Height = 21
      DataBinding.DataField = 'Sequencial'
      DataBinding.DataSource = dsDocumento
      ParentColor = False
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.Alignment.Vert = taVCenter
      Style.BorderStyle = ebsUltraFlat
      Style.Color = clCream
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
    end
  end
  object cxGroupBox4: TcxGroupBox
    Left = 192
    Top = 63
    Width = 102
    Height = 42
    Caption = ' Data '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 1
    object deData: TcxDBDateEdit
      Left = 4
      Top = 17
      Width = 94
      Height = 21
      DataBinding.DataField = 'Data'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      TabOrder = 0
    end
  end
  object cxGroupBox11: TcxGroupBox
    Left = 291
    Top = 63
    Width = 420
    Height = 42
    Caption = ' Pessoa '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 2
    object ceCliente: TcxDBCurrencyEdit
      Left = 4
      Top = 17
      Width = 69
      Height = 21
      Hint = 'Pressione F2 para Pesquisar'
      DataBinding.DataField = 'Pessoa'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      ParentShowHint = False
      Properties.Alignment.Horz = taRightJustify
      Properties.Alignment.Vert = taVCenter
      Properties.DecimalPlaces = 0
      Properties.DisplayFormat = '0'
      Properties.EditFormat = '0'
      Properties.UseDisplayFormatWhenEditing = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.ValidateOnEnter = True
      ShowHint = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      Style.TextColor = clNavy
      TabOrder = 0
    end
    object lkLocalCliente: TcxDBLookupComboBox
      Left = 75
      Top = 17
      Width = 340
      Height = 21
      DataBinding.DataField = 'Pessoa'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'Codigo'
      Properties.ListColumns = <
        item
          FieldName = 'Nome'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsPessoas
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      TabOrder = 1
    end
  end
  object cxGroupBox1: TcxGroupBox
    Left = 99
    Top = 63
    Width = 96
    Height = 42
    Caption = ' N'#250'mero '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 0
    object cxDBCurrencyEdit2: TcxDBCurrencyEdit
      Left = 4
      Top = 17
      Width = 88
      Height = 21
      Hint = 'Pressione F2 para Pesquisar'
      DataBinding.DataField = 'Numero'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      ParentShowHint = False
      Properties.Alignment.Horz = taRightJustify
      Properties.Alignment.Vert = taVCenter
      Properties.DecimalPlaces = 0
      Properties.DisplayFormat = '0'
      Properties.EditFormat = '0'
      Properties.UseDisplayFormatWhenEditing = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.ValidateOnEnter = True
      ShowHint = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      Style.TextColor = clNavy
      TabOrder = 0
    end
  end
  object cxGroupBox3: TcxGroupBox
    Left = 9
    Top = 108
    Width = 565
    Height = 42
    Caption = ' Opera'#231#227'o '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 3
    object cxDBCurrencyEdit1: TcxDBCurrencyEdit
      Left = 4
      Top = 17
      Width = 69
      Height = 21
      Hint = 'Pressione F2 para Pesquisar'
      DataBinding.DataField = 'Operacao'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      ParentShowHint = False
      Properties.Alignment.Horz = taRightJustify
      Properties.Alignment.Vert = taVCenter
      Properties.DecimalPlaces = 0
      Properties.DisplayFormat = '0'
      Properties.EditFormat = '0'
      Properties.UseDisplayFormatWhenEditing = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.ValidateOnEnter = True
      ShowHint = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      Style.TextColor = clNavy
      TabOrder = 0
    end
    object cxDBLookupComboBox1: TcxDBLookupComboBox
      Left = 75
      Top = 17
      Width = 483
      Height = 21
      DataBinding.DataField = 'Operacao'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'Codigo'
      Properties.ListColumns = <
        item
          FieldName = 'Descricao'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsOperacoes
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      TabOrder = 1
    end
  end
  object cxGroupBox26: TcxGroupBox
    Left = 571
    Top = 108
    Width = 140
    Height = 42
    Caption = ' Valor '
    ParentFont = False
    Style.Font.Charset = ANSI_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 4
    object cdDespAcessItem: TcxDBCurrencyEdit
      Left = 5
      Top = 17
      Width = 130
      Height = 21
      TabStop = False
      DataBinding.DataField = 'Valor'
      DataBinding.DataSource = dsDocumento
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.Alignment.Vert = taVCenter
      Properties.DisplayFormat = ',0.00;-,0.00'
      Properties.EditFormat = ',0.00;-,0.00'
      Properties.Nullable = False
      Properties.NullString = '0'
      Properties.ReadOnly = True
      Properties.UseDisplayFormatWhenEditing = True
      Properties.UseLeftAlignmentOnEditing = False
      Properties.ValidateOnEnter = True
      Style.Color = clCream
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      Style.TextColor = clNavy
      TabOrder = 0
    end
  end
  object cxGroupBox6: TcxGroupBox
    Left = 9
    Top = 153
    Width = 702
    Height = 286
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 5
    object gdItens: TcxGrid
      Left = 3
      Top = 8
      Width = 696
      Height = 274
      PopupMenu = pmCategoria
      TabOrder = 0
      LookAndFeel.Kind = lfFlat
      object gdItensDBTableView1: TcxGridDBTableView
        OnKeyDown = gdItensDBTableView1KeyDown
        DataController.DataSource = dsItens
        DataController.KeyFieldNames = 'Sequencial'
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsBehavior.CellHints = True
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsCustomize.ColumnFiltering = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        object colItensCodigo: TcxGridDBColumn
          Caption = 'C'#243'digo'
          DataBinding.FieldName = 'Produto'
          Width = 91
        end
        object colItensDesc: TcxGridDBColumn
          Caption = 'Descri'#231#227'o'
          DataBinding.FieldName = 'Produto'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'Codigo'
          Properties.ListColumns = <
            item
              FieldName = 'Descricao'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsProdutos
          Properties.OnCloseUp = gdItensDBTableView1DBColumn2PropertiesCloseUp
          Width = 286
        end
        object colItensVlrUnit: TcxGridDBColumn
          Caption = 'R$ Unit.'
          DataBinding.FieldName = 'ValorUnit'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = '0.00;-0.00'
          Properties.ValidateOnEnter = True
          Width = 102
        end
        object colItensQtd: TcxGridDBColumn
          Caption = 'Quantidade'
          DataBinding.FieldName = 'Qtd'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = '0.00;-0.00'
          Properties.ValidateOnEnter = True
          Width = 102
        end
        object colItensVlrTotal: TcxGridDBColumn
          Caption = 'R$ Total'
          DataBinding.FieldName = 'ValorTotal'
          PropertiesClassName = 'TcxCurrencyEditProperties'
          Properties.DisplayFormat = '0.00;-0.00'
          Properties.ValidateOnEnter = True
          Width = 102
        end
      end
      object gdItensLevel1: TcxGridLevel
        GridView = gdItensDBTableView1
      end
    end
  end
  object Panel1: TPanel
    Left = 9
    Top = 2
    Width = 702
    Height = 56
    TabOrder = 7
    object btnConsulta: TcxButton
      Left = 5
      Top = 1
      Width = 141
      Height = 53
      Caption = 'Confirmar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12615680
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = btnConsultaClick
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C006000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC6EBCD73CD862EB44A0EA62E0FAE310FAE
        310EA62E2EB44A73CD86C6EBCDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6F0DB0FA22C11B13318C3441FCE4A
        20D14E20D04D20D04D20D14E1FCE4A18C34411B1330FA22CD6F0DBFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF73C8810EA32A1DC94520
        D04D1FCF4C1ECE4B1ECC4B1ECC4B1ECC4B1ECC4B1ECE4B1FCF4C20D14D1DC945
        0EA32A73C881FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5CBD6D10AE
        311FD1501FCF501ECD4F1DCF511FD24E1FD24E1DD04C1ECE4B1ECE4B1ECE4B1E
        CE4A1ECD5020D0511FD25110AE315CBD6DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        72C37E11AA3020D3531ECE4F1ECD4E1CD0522BC04B00930F0093112BC04C1DD1
        4C1ECE4B1ECE4B1ECE4B1ECE4A1ECE4A1ECE4F21D45411AA3072C37EFFFFFFFF
        FFFFFFFFFFD6EDD90D99221FD1501ECE501ECD4F1FD05214BA3D008F01FFFFFF
        BFEBCB0090082BC04C1FD14C1ECE4B1ECE4B1ECE4B1ECE4A1ECD4F1ECE501FD2
        510D9922D6EDD9FFFFFFFFFFFF0D8E1B19C7481ECF521DCD501ED15316BF4200
        8E01FFFDFFFBF7F9FFFFFFBBE9C800910812BB3E1FD14E1ECE4B1ECE4B1ECE4A
        1DCD511DCD511FD05319C7480D8E1BFFFFFFC6E4C90F9F251FD4591DCE531ED3
        580FA72C008F01FFFBFFEFF1F1F2F4F2FAF8FAFFFFFFB5E6C000910A13BB3E1F
        D14D1ECE4A1ECE4A1ECE4A1ECE491DCD5320D55A0F9F25C6E4C970BA7815BB3E
        1CD0581CD1590FAD32009103FFF7FFEEEDEEF1F1F1F5F4F5F8F7F8FCFAFCFFFF
        FFAEE2BA00910A13BB3D1DD25D1CCF581CCF581CD25A1CCF571CD15915BB3E70
        BA7828922D31D46A17CD5315BB42009102FFF2FFEAE9E9EFECEFFFF8FFFFF7FF
        FFFDFFFDFBFDFEFEFEFFFFFFABE2B800910A14BB3C17D55F16D25B16D15A1ED2
        5B13CC4F31D46A28922D027C0877EAAA32D56F039913FFF1FFE2E3E1EAE8EAFF
        F7FF008D0000B52B008B00FFFFFFFEFCFEFFFFFFFFFFFFABE2B800910A14BB3C
        17D45F16D15A11D0562DD46B77EAAA027C080A87126CE8A66BE09F019406FFED
        FFF1E6F1FFF5FF008C001CD8601ED45D1CD860008B00FFFFFFFFFCFEFFFEFFFF
        FFFFABE2B800910A13BB3C1CD45B30DB746BE09F6CE8A60A800F0379096CE8A9
        63DE9B66E1A2008C00E8DFE2008D0013CB4D18D25618D05418D15517D759008A
        00FFFFFFFEFCFEFEFEFEFFFFFFABE2B90091092ABF486CE4A663DE9B6CE8A903
        790900680068E8A661DF9E67E5A864E8B229BC5950D79157D99A56D89855D898
        56D89856D99958DFA1008900FFFFFFFBFAFBFBFBFAFFFFFFABE3B9008F0567E4
        A561DF9E68E8A600680021802171DC9E5CE19D62E1A254DB9961E4AA60E2A85F
        E2A75EDEA068DEA35FE2A65FE2A660E2A867EAB6008700FFFFFFF9F8F9F7F7F8
        FFFDFFADE4BA0090065DE4A171DC9E2180216DAD6C44B3618DEDC258E19D62E4
        A55EE1A65EE1A55EE1A65EE1A65DE1A55EE1A55EE1A55EE1A55FE2A761E5AB00
        8900FFFFFFF6F4F6F2F3F2FFFFFF08971292F0C844B3616DAD6CC4DEC4087811
        A2F0D174E5B155DF9C5EE1A060E1A15FE1A15EE1A55EE1A55EE1A55EE1A55EE1
        A55EE1A55FE2A863E6AF008900FFFFFFFFF6FFFFFDFF37B956A2F0D1087811C4
        DEC4FFFFFF02690252C278A9F1D685E8BC54E09D5AE0A25FE1A65EE1A55EE1A5
        5EE1A55EE1A55EE1A55EE1A55EE1A55FE2A768EAB6008B0023BF5D2AAA3BADF3
        DB52C278026902FFFFFFFFFFFFD5E7D500660079E2AEA2EFD196EBC96EE3B24A
        E09B5BE0A35CE0A45CE1A45CE1A45CE1A45CE1A45CE0A45BE0A34CE19D73E8BB
        9DEED0A6F1D579E2AE006600D5E7D5FFFFFFFFFFFFFFFFFF6DAB6B107D187FE9
        BA9DEFD29BECCB97EBCA7DEAC26DE3B06DE3B16DE3B16DE3B26DE3B26DE3B17D
        EAC299EBCB9DEDCC9EEFD37FE9BA107D186DAB6BFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFF5498540F78176DDDA798EED399ECCF98EBCD9EECD2A2EED6A4EED89EED
        CCA3EED89DEDCD99EBCD9AECD098EED36DDDA70F7817549854FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF6EA86A00600046BC7481E7C197EFD49AEED5
        97ECD196ECCF96ECCF97ECD19AEED597EFD481E7C146BC740060006EA86AFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD4E6D4025E020B
        730F31A5545BCE9075E1B486EAC486EAC475E1B45BCE9031A5540B730F025E02
        D4E6D4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFC4DCC36CA76A216F21005000006400006400005000216F216C
        A76AC4DCC3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      Layout = blGlyphTop
      LookAndFeel.Kind = lfOffice11
    end
    object btnSair: TcxButton
      Left = 556
      Top = 1
      Width = 141
      Height = 53
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12615680
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = btnSairClick
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C006000000000000000000000000000000000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF995F
        33D7961FDFAE5CEBCD98FBF5E9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFA96A38D7971FD2901CD2901CD2901CD2901CDFAF5CECD09EFAF2
        E3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFDDBFA5C0A28A8D90968C4E1AD8991FD2901CD2901CD2901CD2901C
        D2901CD2901CD2901CD59627E5BC6FD1AC8FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFBA7B45864B1F0B101B6F3702D9991FD2901DD2
        901DD2901DD2901DD2901DD2901DD2901DD2901DD5951DA4581FFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBF834F894E200A0F1B743A
        02DA9920D3901ED3901ED3901ED3901ED3901ED3901ED3901ED3901ED6941DA7
        5D23FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8FDFFFFFFFFFFFFC38750
        8D5122090F1B783D02DB9921D4911FD4911FD4911FD4911FD4911FD4911FD491
        1FD4911FD7951EAA6125FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1513CDFF
        FFFFFFFFFFD0924E8D5525090F1B7B4102DB9A23D49220D49220D49220D49220
        D49220D49220D49220D49220D7961FAD6528FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF1513CD1B1BE4FFFFFFD99F58925826090E1B804606DC9B25D69522D5
        9423D59423D59423D59423D59423D59423D59423D79722B0682CFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFF1513CD242CF81519E8805066A1621F090E198649
        0AD7911FC48727D79623D59525D59525D59525D59525D59525D59525D79924B3
        6B2D1F2CEB1F2CEB222DEB222CEB212CEB212BEB222CEC2532F42331F61925F7
        3624820D110E884B0BEAD095C4CBDCC07917D79929D79728D79728D79728D797
        28D79728D99B27B7702F6D76EF263DF42A3FF42A3FF42A3EF4293DF4293CF427
        3AF32739F32839F5202FF80B098F905106EAC875DEC391D49425D7992CD79A2C
        D79A2CD79A2CD79A2CD79A2CDA9E2CB974316F78EF2A44F42D46F42D45F42C45
        F42C44F42C42F42C42F42B41F4293EF42F48F65C6FFF4F2B7DE8B84DDFAD4DE0
        B054DDA745D99E32D99B2FD99C30D99C31D99C31DCA031BC7833707BF22A45F4
        2C48F42C47F42C46F42C45F42C46F32F48F42C45F43852F595A7FF1B1ACF9658
        19E7BB5AE0B256E0B256E0B357E1B45ADEAC4BD9A036D99F36DAA037DCA437C1
        7D357480F484A0FA849EF9849EF9839CF9849CF98BA0FA2E4BF43D5BF691A7FF
        2620D60B0D119A5E1DE8BC65E2B45DE2B45DE2B45DE2B45DE2B65EE3B45EDFAB
        4BDDA33BDFA73EC480363A3AED4D50EF4B4EEF4A4EEF4A4EEF4B50EF363BEF44
        67F794ACFE6245B7A56B2C070C149E6524E9C16CE4B965E4B965E4B965E4B965
        E4B965E4B965E4BA67E4B660DFAA46C88439FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF292BEF8DA1F92527FAEAB862AB7132060B16A46A27ECC475E6BC6DE6
        BC6DE6BC6DE6BC6DE6BC6DE6BC6DE6BC6DE6BC6FE8C071CA8937FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFF2B27F11B17F1FFFFFFE5B15EAB7536060A16AA6F
        2BEDC97BE8C274E8C274E8C274E8C274E8C274E8C274E8C274E8C274EAC679CD
        8C3BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1812F1FFFFFFFFFFFFE0AE67
        AF7838050A15AF752EEFCD84EAC67DEAC67DEAC67DEAC67DEAC67DEAC67DEAC6
        7DEAC67DEDCA83D0903CFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFE1B06BB17B3A040A15B27A32F1D18FEDCA86EDCA86EDCA86EDCA86
        EDCA86EDCA86EDCA86EDCA86EFCE8DD3943DFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFE3B46CB37E3B040914B88037F4D797EFD08FEF
        D08FEFD08FEFD08FEFD08FEFD08FEFD08FEFD08FF1D496D6993FFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE6B86EB8823E040A14C690
        3FFFE4A9F8DE9FF6DA9CF3D79AF2D799F2D799F2D799F2D799F2D799F4DBA0D8
        9C41FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7BB71
        B7833F04091426211C847458907B5DC8B182F4DCA6FEE8B0FAE4ADF9E2ABF7DF
        A9F6DFA7F7E2AFDBA045FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFE9BD73D09B4870512E75552F6D4F2C6B4D2B6749296245275C4024
        B28B4FBF9655EDCA7BF0D38FF4D99BDFA748FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFEAC175E6B352EAB755EBB855EBB855EBB855EB
        B855EBB855EAB755E8B351E6B150E3AD4EE3AC4DE3AC4DE4B050}
      Layout = blGlyphTop
      LookAndFeel.Kind = lfOffice11
    end
    object cxButton2: TcxButton
      Left = 151
      Top = 1
      Width = 141
      Height = 53
      Caption = 'Cancelar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12615680
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = cxButton2Click
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C006000000000000000000000000000000000000FFFFFF6763CF
        1712B61813BA1812BA1812BA1812BA1712B91712B91712B91711B91711B91711
        B91711B91711B81711B81711B81711B81711B81711B81711B71610B36662CDFF
        FFFF6966D4201DD52724ED2624ED2623ED2622ED2622ED2621ED2621ED2520ED
        2520ED251FED251EED241EED241DED241DED241DED241CED241CED241CED241C
        ED241CED1E17D36763D11A16BD2929EE2829EE2828EE2828EE2220DA2321DF27
        26ED2725ED2725ED2724ED2724ED2624ED2623ED2622ED2622ED2621ED1A15C2
        211CDF2520ED251FED251EED241EED1812B91D19C42A2EEE2A2DEE2A2DEE2526
        E1140FAA140FAA2525E1292AEE2929EE2929EE2829EE2828EE2828EE2827ED28
        26ED1A16C1130DA6140FAA2320E02724ED2624ED2623ED1A15C01E1BC72C33EE
        2C32EE272BE21611AF6C69CA403CBA1611AF2629E22B2FEE2A2EEE2A2DEE2A2D
        EE2A2CEE2A2CEE1C19C5140FABA7A5DF6C69CA1610AF2524E12828EE2828EE1C
        17C31F1DC92D37EE2930E31813B46D6ACDFFFFFFF0F0FA423DBF1813B4282CE3
        2C33EE2C32EE2C31EE2C31EE2324D71611B0A8A5E1FFFFFFFFFFFF6D6ACD1812
        B42526DF2A2CEE1D19C6201FCC2F3DEF2225CE1812B6A9A6E4FFFFFFFFFFFFF1
        F0FA6E6BD11915B92930E42D37EE2D37EE2528D91812B6A8A6E3FFFFFFFFFFFF
        F1F0FB433FC41914B9282CE32C31EE1F1BC92120CE3141EF3141EF2225CE1A14
        BBA9A7E6FFFFFFFFFFFFFFFFFF706CD41B16BF2B34E5272CDB1A14BBA9A7E5FF
        FFFFFFFFFFFFFFFF4540C81B16BE2931E42D37EE2D36EE1F1DCB2222D13346EF
        3245EF3245EF2427D11B15C0AAA7E8FFFFFFFFFFFFFFFFFF716DD71D17C31B15
        C0AAA7E7FFFFFFFFFFFFFFFFFF716DD81D17C32B35E62F3CEE2F3BEE2E3BEE21
        1ECD2423D3344AEF344AEF3449EF3449EF2932DC1D16C4AAA8E9FFFFFFFFFFFF
        FFFFFF716DDA716DDAFFFFFFFFFFFFFFFFFF726DDB1E18C72D3AE73141EF3141
        EF3040EF3040EF2220D02525D5374EF0374DEF364DEF364CEF364CEF2D38E01E
        16C9ABA8EBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF726EDD1F19CB2F3EE8
        3346EF3346EF3245EF3245EF3244EF2322D35656E04C61F23951F03950F03850
        F0384FF0384FF02E3AE21F17CD817DE3FFFFFFFFFFFFFFFFFFFFFFFF736EE01F
        17CD3141E8354BEF354BEF344AEF344AEF3449EF475AF15454DE5D5DE36D7EF4
        6679F45066F23E55F03A52F03A52F03547EA211CD3736FE2FFFFFFFFFFFFFFFF
        FFFFFFFF817DE52018D12F3AE4384EF0374EF03A50F04D60F16274F36879F35B
        5BE15E5EE56E81F56E81F56E80F46E80F45E73F34E5EEE302BDA746FE5FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFABA8EF2F27D84752EA5C6FF36B7CF46B7C
        F46B7CF46A7CF45D5CE35F5FE77184F57083F57083F57083F56B79F25A56E497
        94EDFFFFFFFFFFFFFFFFFF9E9BEF9490EDFFFFFFFFFFFFFFFFFFC1BFF45953E3
        656EEE6D7EF46C7EF46C7EF46C7EF45D5DE55F60E97286F57286F57186F56D7C
        F25B56E79794EFFFFFFFFFFFFFFFFFFFC1BFF65953E65953E69794F0FFFFFFFF
        FFFFFFFFFFC1BFF65953E66164EC6E81F56E80F46E80F45E5EE76060EA7489F5
        7488F56E7EF35B56EA7873EDF5F4FEFFFFFFFFFFFFC1BFF75953E96973F06D7C
        F35B56EA9794F1FFFFFFFFFFFFFFFFFFC1BFF75953E96265EE7083F57083F55F
        5FE86061EC758BF57080F35C57EC7974EFF5F4FEFFFFFFFFFFFFC1BFF85A54EC
        6A75F17488F57488F56F7EF35C57EC9894F3FFFFFFFFFFFFFFFFFFC1BFF85A54
        EC646AF07185F55F60EA6162EE778DF56E7BF35C58EF9894F5FFFFFFFFFFFFC1
        BFF95A54EE6A73F2758BF5758AF5758AF5758AF57080F45C57EF7974F2F5F4FE
        FFFFFF9894F55C57EF6F7FF47388F56060EB6263EF798FF5798FF57384F45D58
        F09895F6C2BFFA5B55F0666AF2788EF5778DF5778DF5778DF5778CF5778CF571
        82F45D58F07A75F39895F65C58F07081F4758AF5758AF56061ED6263F07B92F6
        7B91F67B91F67586F55D59F25B55F2676BF37A90F57A90F5798FF5798FF5798F
        F5798FF5798FF5788EF57384F45D59F25D59F27283F4778DF5778DF5778CF561
        62EE6161F17D93F67D93F67D93F67D93F67787F56A70F47C92F67C92F67C92F6
        7C92F67B91F67B91F67A91F57A90F57A90F57A90F57485F4707EF4798FF5798F
        F5798FF5798FF5605FEF9797F6717CF47E94F67E94F67E94F67E94F67E94F67E
        94F67E94F67E94F67D93F67D93F67D93F67D93F67D93F67D92F67C92F67C92F6
        7C92F67C92F67B91F67B91F66F7AF39796F5FFFFFF9897F86261F36465F36465
        F36465F36465F36465F36465F36465F36465F36465F36465F36465F36465F364
        65F36465F36465F36465F26464F26464F26160F29797F7FFFFFF}
      Layout = blGlyphTop
      LookAndFeel.Kind = lfOffice11
    end
  end
  object cxGroupBox5: TcxGroupBox
    Left = 9
    Top = 444
    Width = 703
    Height = 42
    Caption = ' Categoria '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = 12615680
    Style.Font.Height = -11
    Style.Font.Name = 'Verdana'
    Style.Font.Style = [fsBold]
    TabOrder = 8
    object cxDBLookupComboBox2: TcxDBLookupComboBox
      Left = 4
      Top = 17
      Width = 695
      Height = 21
      DataBinding.DataField = 'Categoria'
      DataBinding.DataSource = dsItens
      ParentFont = False
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'Sequencial'
      Properties.ListColumns = <
        item
          FieldName = 'Descricao'
        end>
      Properties.ListOptions.GridLines = glNone
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsCategorias
      Properties.ReadOnly = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clNavy
      Style.Font.Height = -11
      Style.Font.Name = 'Verdana'
      Style.Font.Style = []
      StyleDisabled.Color = clCream
      StyleDisabled.TextColor = clNavy
      TabOrder = 0
    end
  end
  object sqlDocumento: TSQLDataSet
    CommandText = 'Select *'#13#10'From Compras'#13#10'Where 1=2'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 542
    Top = 222
    object sqlDocumentoSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sqlDocumentoNumero: TIntegerField
      FieldName = 'Numero'
      Required = True
    end
    object sqlDocumentoData: TSQLTimeStampField
      FieldName = 'Data'
      Required = True
    end
    object sqlDocumentoOperacao: TIntegerField
      FieldName = 'Operacao'
    end
    object sqlDocumentoPessoa: TIntegerField
      FieldName = 'Pessoa'
      Required = True
    end
    object sqlDocumentoValor: TFMTBCDField
      FieldName = 'Valor'
      Precision = 18
      Size = 2
    end
  end
  object dsoDocumento: TDataSetProvider
    DataSet = sqlDocumento
    Options = [poAllowCommandText]
    Left = 570
    Top = 222
  end
  object cdsDocumento: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsoDocumento'
    AfterInsert = cdsDocumentoAfterInsert
    BeforePost = cdsDocumentoBeforePost
    AfterPost = cdsDocumentoAfterPost
    Left = 598
    Top = 222
    object cdsDocumentoSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsDocumentoNumero: TIntegerField
      FieldName = 'Numero'
      Required = True
    end
    object cdsDocumentoData: TSQLTimeStampField
      FieldName = 'Data'
      Required = True
    end
    object cdsDocumentoOperacao: TIntegerField
      FieldName = 'Operacao'
    end
    object cdsDocumentoPessoa: TIntegerField
      FieldName = 'Pessoa'
      Required = True
    end
    object cdsDocumentoValor: TFMTBCDField
      FieldName = 'Valor'
      Precision = 18
      Size = 2
    end
  end
  object dsDocumento: TDataSource
    AutoEdit = False
    DataSet = cdsDocumento
    OnDataChange = dsDocumentoDataChange
    Left = 627
    Top = 222
  end
  object dsItens: TDataSource
    DataSet = cdsItens
    Left = 627
    Top = 254
  end
  object cdsItens: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspItens'
    BeforePost = cdsItensBeforePost
    AfterPost = cdsItensAfterPost
    AfterDelete = cdsItensAfterDelete
    Left = 598
    Top = 254
    object cdsItensSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsItensProduto: TIntegerField
      FieldName = 'Produto'
      Required = True
    end
    object cdsItensValorUnit: TFMTBCDField
      FieldName = 'ValorUnit'
      OnValidate = cdsItensValorUnitValidate
      Precision = 18
      Size = 2
    end
    object cdsItensQtd: TFMTBCDField
      FieldName = 'Qtd'
      OnValidate = cdsItensQtdValidate
      Precision = 18
      Size = 2
    end
    object cdsItensValorTotal: TFMTBCDField
      FieldName = 'ValorTotal'
      Precision = 18
      Size = 2
    end
    object cdsItensSeqDoc: TIntegerField
      FieldName = 'SeqDoc'
      Required = True
    end
    object cdsItensCategoria: TIntegerField
      FieldName = 'Categoria'
    end
  end
  object dspItens: TDataSetProvider
    DataSet = sqlItens
    Options = [poAllowCommandText]
    Left = 570
    Top = 254
  end
  object sqlItens: TSQLDataSet
    CommandText = 'Select * From ItensDocumento WHere 1=2'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 542
    Top = 254
    object sqlItensSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sqlItensProduto: TIntegerField
      FieldName = 'Produto'
      Required = True
    end
    object sqlItensValorUnit: TFMTBCDField
      FieldName = 'ValorUnit'
      Precision = 18
      Size = 2
    end
    object sqlItensQtd: TFMTBCDField
      FieldName = 'Qtd'
      Precision = 18
      Size = 2
    end
    object sqlItensValorTotal: TFMTBCDField
      FieldName = 'ValorTotal'
      Precision = 18
      Size = 2
    end
    object sqlItensSeqDoc: TIntegerField
      FieldName = 'SeqDoc'
      Required = True
    end
    object sqlItensCategoria: TIntegerField
      FieldName = 'Categoria'
    end
  end
  object sqlPessoas: TSQLDataSet
    CommandText = 'Select Codigo, Nome'#13#10'From Pessoas'#13#10'Order by Nome'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 542
    Top = 286
    object sqlPessoasCodigo: TIntegerField
      FieldName = 'Codigo'
      Required = True
    end
    object sqlPessoasNome: TStringField
      FieldName = 'Nome'
      FixedChar = True
      Size = 50
    end
  end
  object dspPessoas: TDataSetProvider
    DataSet = sqlPessoas
    Options = [poAllowCommandText]
    Left = 570
    Top = 286
  end
  object cdsPessoas: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPessoas'
    Left = 598
    Top = 286
    object cdsPessoasCodigo: TIntegerField
      FieldName = 'Codigo'
      Required = True
    end
    object cdsPessoasNome: TStringField
      FieldName = 'Nome'
      FixedChar = True
      Size = 50
    end
  end
  object dsPessoas: TDataSource
    AutoEdit = False
    DataSet = cdsPessoas
    Left = 627
    Top = 286
  end
  object dsOperacoes: TDataSource
    AutoEdit = False
    DataSet = cdsOperacoes
    Left = 627
    Top = 318
  end
  object cdsOperacoes: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOperacoes'
    Left = 598
    Top = 318
    object cdsOperacoesCodigo: TIntegerField
      FieldName = 'Codigo'
      Required = True
    end
    object cdsOperacoesDescricao: TStringField
      FieldName = 'Descricao'
      FixedChar = True
      Size = 30
    end
  end
  object dspOperacoes: TDataSetProvider
    DataSet = sqlOperacoes
    Options = [poAllowCommandText]
    Left = 570
    Top = 318
  end
  object sqlOperacoes: TSQLDataSet
    CommandText = 'Select Codigo, Descricao'#13#10'From Operacoes'#13#10'Order by Descricao'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 542
    Top = 318
    object sqlOperacoesCodigo: TIntegerField
      FieldName = 'Codigo'
      Required = True
    end
    object sqlOperacoesDescricao: TStringField
      FieldName = 'Descricao'
      FixedChar = True
      Size = 30
    end
  end
  object sqlProdutos: TSQLDataSet
    CommandText = 
      'Select Codigo, Barras, Descricao, Grupo'#13#10'From Produtos'#13#10'Order By' +
      ' Descricao'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 542
    Top = 350
    object IntegerField1: TIntegerField
      FieldName = 'Codigo'
      Required = True
    end
    object StringField1: TStringField
      FieldName = 'Descricao'
      FixedChar = True
      Size = 30
    end
  end
  object dspProdutos: TDataSetProvider
    DataSet = sqlProdutos
    Options = [poAllowCommandText]
    Left = 570
    Top = 350
  end
  object cdsProdutos: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspProdutos'
    Left = 598
    Top = 350
    object IntegerField2: TIntegerField
      FieldName = 'Codigo'
      Required = True
    end
    object StringField2: TStringField
      FieldName = 'Descricao'
      FixedChar = True
      Size = 30
    end
  end
  object dsProdutos: TDataSource
    AutoEdit = False
    DataSet = cdsProdutos
    Left = 627
    Top = 350
  end
  object pmCategoria: TPopupMenu
    Left = 193
    Top = 233
    object Categoria1: TMenuItem
      Caption = 'Categoria'
      OnClick = Categoria1Click
    end
  end
  object sqlCategorias: TSQLDataSet
    CommandText = 
      'Select Sequencial, dbo.Elchar0(RTRIM(Codigo)) +'#39' '#39'+dbo.Elchar0(R' +
      'TRIM(Descricao)) DEscricao'#13#10'From categorias'#13#10'Order By Descricao'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 542
    Top = 382
    object sqlCategoriasSequencial: TIntegerField
      FieldName = 'Sequencial'
    end
    object sqlCategoriasDEscricao: TStringField
      FieldName = 'DEscricao'
      FixedChar = True
      Size = 50
    end
  end
  object dspCategorias: TDataSetProvider
    DataSet = sqlCategorias
    Options = [poAllowCommandText]
    Left = 570
    Top = 382
  end
  object cdsCategorias: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCategorias'
    Left = 598
    Top = 382
    object cdsCategoriasSequencial: TIntegerField
      FieldName = 'Sequencial'
    end
    object cdsCategoriasDEscricao: TStringField
      FieldName = 'DEscricao'
      FixedChar = True
      Size = 50
    end
  end
  object dsCategorias: TDataSource
    AutoEdit = False
    DataSet = cdsCategorias
    Left = 627
    Top = 382
  end
end
